#!/usr/bin/perl

require 'forum_connect.pl';
require 'forum_html.pl';

# this file simply defines functions that require both
# forum_connect.pl and forum_html.pl

sub record_this_hit
{
	my $full_url = reconstruct_full_url();
	if (!$full_url)
	{
		# then it wasnt accessed via the http server
		return 0;
	}
	my $referer = '';
	if (exists($ENV{'HTTP_REFERER'}))
	{
		$referer = $ENV{'HTTP_REFERER'};
	}
	my $ip_addr = $ENV{'REMOTE_ADDR'};
	my $hostname = $ENV{'REMOTE_HOST'};
	
	return record_hit($full_url, $referer, $ip_addr, $hostname);
}

1;
